home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 1 #2
/
Commodore_Disk_User_Vol.1_2_1988_-.d64
/
noluxe list
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
65 lines
0 rem auto listing
1 poke55,41:poke56,152:run2
2 sys57812"no3",8,1:poke780,0:sys65493
3 poke53280,0:poke53281,0:poke646,5:printchr$(147)chr$(142)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
4 print" noluxe auto listing [146]":print" flossoftware (c)1987 [146]"
5 input"filename screen ";fi$:input"filename colour (q)";f$
6 sys57812fi$,8,1:poke780,0:sys65493:sys49400,38955,1023,1000
7 iff$<>"q"thensys57812f$,8,1:poke780,0:sys65493
8 sys49400,39957,55295,1001:ba=38956:ea=39956:rn=1001:ro=0:rf=0:kk=0:sk=0
9 getkl$:ifkl$<>"[133]"andkl$<>"[134]"andkl$<>"[136]"then9
10 ifkl$="[133]"thenkk=kk+1:ifkk>15thenkk=0
11 ifkl$="[134]"thensk=sk+1:ifsk>15thensk=0
12 poke53280,kk:poke824,kk:poke53281,sk:poke825,sk:ifkl$<>"[136]"then9
13 poke53280,0:poke53281,0:poke820,0:poke821,0:poke822,0:printchr$(144)
14 print"[147]55data";ba;"[157],";ea;"[157],";rn;"[157],";peek(820);"[157],";peek(821);"[157],";peek(822)
15 print"run17";
16 poke632,13:poke633,13:poke634,13:poke198,3:end
17 readba,ea,rn,ro,rf,kl
18 print"[147]";rn;"[144]?";chr$(34)
19 poke53280,2:forx=0to9:gosub32
20 ifpeek(ba+x)>127thenrf=0:goto23
21 ro=0:ifrf=0thenrf=1:poke1112+pl,210:pl=pl+1:poke1112+pl,peek(ba+x):pl=pl+1:goto25
22 ifrf=1thenpoke1112+pl,peek(ba+x):pl=pl+1:goto25
23 ifro=0thenro=1:poke1112+pl,146:pl=pl+1:poke1112+pl,peek(ba+x)-128:pl=pl+1:goto25
24 ifro=1thenpoke1112+pl,peek(ba+x)-128:pl=pl+1
25 poke53280,5:nextx
26 poke1112+pl,34:pl=pl+1:poke1112+pl,59:poke820,ro:poke821,rf:poke822,kl
27 ifba+x>ea-1thenpoke1112+pl-2,147:poke1112+pl-1,34:poke1112+pl,32:print"r[213]49";:poke198,7:goto29
28 print"[157] ":print"run30";:poke198,7
29 poke632,19:poke633,13:poke634,13:poke635,13:poke636,13:poke637,13:poke638,13:end
30 readba,ea,rn,ro,rf,kl:ba=ba+10:rn=rn+1
31 goto14
32 lk=kl:kl=peek(ba+x+1002)and15:ifkl=lkthenreturn
33 ifkl=0thenpoke1112+pl,207:pl=pl+1:return
34 ifkl=1thenpoke1112+pl,133:pl=pl+1:return
35 ifkl=2thenpoke1112+pl,156:pl=pl+1:return
36 ifkl=3thenpoke1112+pl,223:pl=pl+1:return
37 ifkl=4thenpoke1112+pl,220:pl=pl+1:return
38 ifkl=5thenpoke1112+pl,158:pl=pl+1:return
39 ifkl=6thenpoke1112+pl,159:pl=pl+1:return
40 ifkl=7thenpoke1112+pl,222:pl=pl+1:return
41 ifkl=8thenpoke1112+pl,193:pl=pl+1:return
42 ifkl=9thenpoke1112+pl,213:pl=pl+1:return
43 ifkl=10thenpoke1112+pl,214:pl=pl+1:return
44 ifkl=11thenpoke1112+pl,215:pl=pl+1:return
45 ifkl=12thenpoke1112+pl,216:pl=pl+1:return
46 ifkl=13thenpoke1112+pl,217:pl=pl+1:return
47 ifkl=14thenpoke1112+pl,218:pl=pl+1:return
48 ifkl=15thenpoke1112+pl,219:pl=pl+1:return
49 print"[147]1000 ?";chr$(34);"[147]";chr$(34)chr$(59);
50 print":poke53280,";mid$(str$(peek(824)and15),2);
51 print":poke53281,";mid$(str$(peek(825)and15),2)
52 print"1101 poke2023,";mid$(str$(peek(39955)),2);
53 print":poke56295,";mid$(str$(peek(40956)and15),2)
54 print"1102 poke198,0:wait198,1":print"r=1:t=0:goto57";
56 poke632,13:poke633,13:poke634,13:poke635,13:poke636,13:poke198,5:end
57 print"[144][147]":r=r+t:fori=rtor+6step1:poke198,10:poke631,19:printi:nexti
58 forj=632to640:pokej,13:nextj:print"t=";i;":ift<61then57
59 [151]53280,t:[153]"list:":[128]
60 [143] ludo decock
61 [143] lindenstraat 26
62 [143] 8840 gits
63 [143] belgium
64 [143] do not type in line 0, 60, 61, 62, 63, 64